| From: | Dariusz Gac |
| Date: | 4 Sep 2001 at 07:11:09 |
| Subject: | [D5] Re: Opus' Format replacement |
Hello Dave,
In Your message I read:
> Move DOpus5:Modules/Format.module to somewhere else.
> Copy the small script below to DOpus5:Modules/Format.dopus5
> --------------------8<---------------------
> /* Format.dopus5 */
> parse arg port func srceh desth arguments .
> address value port
> options results
> if func = 'init' then do
> dopus command "Format" program "Format" desc "'Format drives'"
> exit
> end
> if arguments = '' then
> address command 'r SYS:System/Format'
> else do
> dopus getstring '"Volume name for '''name'''" 30 "MyDrive"
> OK|Cancel'
> if dopusrc ~= 0 then
> address command 'SYS:System/Format DRIVE 'arguments' NAME 'name'
> QUICK NOICONS'
> end
> --------------------8<---------------------
> You need 'r.lha' from util/cli on Aminet.
> Brings up the interface from the Desktop menu and/or icon menu but
> doesn't seem to pass the argument....can't have everything in a 60
> second script ;^)
60 seconds script ? I try to write something similiar since a few
days ! :)
I have noticed You have not used template option for dopus
command... my question is how to transfer template as arguments into script later ?
Copyright (c) by Darek A.D. 2001